Top 10k strings from Laser Genius Z80 Assembler v1.04 (1986)(Ocean Software)(Side B).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /

Back to the directory listing

   7 accumulato
   7 GRA.PLOT.ABSOLUT
   4 movefromac
   4 GRA.SET.ORIGI
   3 multiplican
   3  Workspace.
   2 test.horizonta
   2 print.prime
   2 SCR.GET.MOD
   2 ************************
   2 ***************
   2  than zero.
   2  delta=DELTAi+DELTAi+b2s
   2  b2s=b2*(2*yi+1)
   2  as it is used by "print.int".
   2  a2s=a2s+a2+a2
   2  This must be before "print.int"
   2  ROM plot routine
   2  Main calculation loop.
   2  Entry point.
   2  DELTAi=DELTAi-b2s
   2  DELTAi=DELTAi+a2s
   2  ************************
   1 load another file (Y/N)
   1 Would you also like to execute 
   1 TRANSBIN  h
   1 TRANS     
   1 Start the tape....please
   1 Set AMSTRAD to 0 for use on the SPECTRUM.
   1 Save (S) or run code (R)
   1 SIEVE.PHX S~
   1 SIEVE.ASM Sa
   1 ROM entries for plotting points.
   1 RA.PLOT.ABSOLUT
   1 Origin set at (127,100) on the SPECTRUM.
   1 Next free byte is
   1 MPAFNCSPHXMf
   1 MPAFNCSPHX
   1 Load to address
   1 ELLIPSEPHXEi
   1 ELLIPSEPHXE
   1 ELLIPSEASMEv
   1 ELLIPSEASME
   1 Created with Ramsoft MakeTZX
   1 Are you sure about that ?
   1 ;Block No.
   1 "save under filename ";X$:!=B"]\
   1 "filename ";X$::
   1 "address ";N:!
   1 "TRANSBIN"
   1 "Input execution address ";N:
   1 "                                ":
   1  ys    = y co-ordinate of centre.
   1  xs    = x co-ordinate of centre.
   1  while count<=5000
   1  while count<=2500
   1  to the screen.
   1  to give pixel co-ordinates.
   1  the AMSTRAD.
   1  standard co-ordinates.
   1  particular screen mode.
   1  of the ellipse.
   1  minor = y semi-axis of ellipse.
   1  major = x semi-axis of ellipse.
   1  listing).
   1  in the array "primeflags".
   1  gving 32 bit result in HL-IX
   1  go diagonally or horizontally ?
   1  expansion factor (AMSTRAD).
   1  drawing routines.
   1  delta=DELTAi+DELTAi-a2s
   1  delta=DELTAi+DELTAi-a2
   1  current plot point.
   1  co-ordinate) axis.
   1  b2s=b2s-b2-b2
   1  accumulator.
   1  Work variables.  (See BASIC
   1  While yi>0
   1  We actually plot (xi,yi),
   1  Type "EXECUTE start" from
   1  This loop marks non-primes 
   1  Test the 32-bit number in
   1  Spectrum.
   1  Spectrum plot routine.
   1  Sieve of Eratosthenes.
   1  Set the precision for multiple precision routines.
   1  Set the origin on the AMSTRAD.
   1  Set PHOENIX stack and flag byte.
   1  Set IX for PHOENIX use.
   1  Set AMSTRAD to 0 if using a
   1  Replace stack pointer.
   1  Reduce the y-axis (AMSTRAD)
   1  ROM's CHAN OPEN
   1  Plot four points of the ellipse (by symmetry).
   1  Plot four points of the ellipse
   1  Plot a single point.
   1  PHOENIX ellipse drawing routines.
   1  On the SPECTRUM set the channel to the main screen.
   1  On the AMSTRAD expand for the
   1  On entry:
   1  Note : this is in
   1  Negate yi
   1  Negate xi
   1  NC, NZ means less
   1  Multiplies BC by HL-DE
   1  Multiplier for screen mode on 
   1  Multiplication routine.
   1  Multiple precision workspace.
   1  Multiple precision multiply routines.
   1  Multiple precision functions.
   1  Make a vertical step.
   1  Make a vertical (downwards) step.
   1  Make a horizontal step.
   1  Make a horizontal (right) step.
   1  Make a diagonal step.
   1  Make a diagonal step,
   1  Main loop.
   1  Machine code sieve.
   1  Machine code ellipse 
   1  Loop to print the primes found.
   1  Integer print function. 
   1  Inner integer print function
   1  Initialise work variables.
   1  Initialise long variables.
   1  Increment count
   1  Include the multiple precision source.
   1  Include library routines for arithmetic.
   1  IF delta<=0
   1  IF DELTAi>0
   1  IF DELTA<=0
   1  HL-DE for its sign.
   1  HL already has (yi).
   1  HL = corrected (pixel
   1  GENIUS editor.
   1  Function to write a character
   1  Enter here (EXECUTE start).
   1  Enter at "start"
   1  End of main loop.
   1  Ellipse work functions.
   1  Ellipse centre.
   1  Ellipse axes.
   1  Done, replace stack pointer and return.
   1  Decision function;
   1  DELTAi=2*(1-b)
   1  Constant definitions
   1  Clear the multiple precision
   1  Calculate the screen mode
   1  C, NZ means greater
   1  BC is equivalent to count.
   1  BC is equivalent to "count".
   1  Adjust ellipse x-axis.
   1  AMSTRAD firmware routine calls.
   1  AMSTRAD (1) or SPECTRUM (0) ?    
   1  (xo),(yo) = centre of ellipse.
   1  (major),(minor) = the axes
   1  (go up then along).
   1  (by symmetry).
   1  (-xi,yi),(-xi,-yi),(xi,-yi).
   1  (-xi,-yi)
   1    Sign extend to
   1    32 bits (requires b>0)
   1     a2=a*a
   1       DELTAi=2*(1-b)
   1         b2s=b2s-b2-b2